TEXTE - Assembler Source 

   0             org $1000
   1 ;
   2 FILPAR      equ $FFBA
   3 FILNAM      equ $FFBD
   4 OPEN        equ $FFC0
   5 CLOSE       equ $FFC3
   6 ZPA         equ $F8
   7 ZPB         equ $FA
   8 ZPC         equ $FC
   9 COMMA       equ $AEFD
  10 GETBYTE     equ $B79E
  11 COMBYT      equ $E200
  12 GETAD       equ $B7F7
  13 FRMNUM      equ $AD8A
  14 FRMEVL      equ $AD9E
  15 FRESTR      equ $B6A3
  16 STRLO       equ $33C
  17 STRHI       equ $33D
  18 SLAENGE     equ $33E
  19 CHRGET      equ $73
  20 CHRGOT      equ $79
  21 A           equ $340
  22 ERRFLAG     equ $33F
  23 ;
  24 TEXTRAM     equ $1400
  25 TLAENGE     equ $1000
  26 TXTANF      equ $6500
  27 ;
  28 ;
  29 ;
  30             lda #ARTEFLIST<
  31             ldy #TEXTRAM>
  32             sta ZPA
  33             sty ZPA+1
  34             ldx #TLAENGE>
  35             ldy #0
  36 EORLOOP     lda (ZPA),Y
  37             eor #105
  38             eor #38
  39             sta (ZPA),Y
  40             inc ZPA
  41             bne EORLOOP
  42             inc ZPA+1
  43             lda ZPA+1
  44             rts
  45             bne EORLOOP
  46 ;
  47             lda #7
  48             ldx #NAME<
  49             ldy #NAME>
  50             stx STRLO
  51             sty STRHI
  52             sta SLAENGE
  53             lda #TEXTRAM<   ;AADR
  54             ldy #TEXTRAM>
  55             sta ZPA
  56             sty ZPA+1
  57             lda #TEXTRAM+TLAENGE<
  58             ldy #TEXTRAM+TLAENGE>
  59             sta ZPB
  60             sty ZPB+1
  61             lda #TXTANF<  ;ZADR
  62             ldy #TXTANF>
  63             sta ZPC
  64             sty ZPC+1
  65 ;
  66 ;* ABSPEICHERN BEST. BEREICHE *
  67 ;
  68 SAVE        ldx #8
  69             lda #1
  70             ldy #$60+1
  71             jsr FILPAR
  72             ldx STRLO
  73             ldy STRHI
  74             lda SLAENGE
  75             jsr FILNAM
  76             jsr OPEN
  77             bcc L1
  78             ldx #3
  79             jmp $A43A
  80 L1          ldx #1
  81             jsr $FFC9
  82             lda ZPC
  83             jsr $FFD2
  84             lda ZPC+1
  85             jsr $FFD2
  86             lda 1
  87             pha
  88             and #254
  89             sta 1
  90             ldy #0
  91 L2          lda (ZPA),Y
  92             jsr $FFD2
  93             inc ZPA
  94             bne L3
  95             inc ZPA+1
  96 L3          lda ZPA
  97             cmp ZPB
  98             bne L2
  99             lda ZPA+1
 100             cmp ZPB+1
 101             bne L2
 102             pla
 103             sta 1
 104             jsr $FFCC
 105             lda #1
 106             jsr CLOSE
 107             dex
 108 ;
 109 NAME        dat 'B TEXTE'
 110             dat @$0359:0
 111 ;
 112 ;-------------------------------
 113 ;
 114             org TXTANF
 115 ;
 116 TXT         dat ARTEFLIST,SPELLIST
 117 ;
 118             dat MAINMTXT,SPELL2TXT,NTEXTTXT,NMENUTXT,I16R2TXT
 119             dat ICON1TXT,QUESTTXT,QHEADTXT,AHEADTXT,NOTALKTXT
 120             dat ICON4TXT,ICON5TXT,ICON7TXT,TIMETXT,ICON8TXT
 121             dat ICON9TXT,ICN15ATXT,ICN15BTXT,SHOP3TXT,SHOP14TXT
 122             dat PRNAMETXT,PRTYPTXT,ICON2TXT,EQPCHKTXT,SPELL9TXT
 123             dat TELFLDTXT,ICON6TXT,GAMENDTXT,ICON17TXT,ICON14TXT
 124             dat SLEEPTXT,HUNGERTXT,STATTXT,GOLDTXT,ESHIPTXT,LSHIPTXT
 125             dat SHOPDLTXT,FSPELLTXT,LOHNTXT,LEVELTXT,ICN5R2TXT,ICON19TXT
 126             dat ICON16TXT,ENDTXT,ESTEEDTXT,ZAHLTXT,TELEPTXT,BUDDHATXT
 127             dat SHOP0TXT,PAUSETXT,SHPDAMTXT,PTIMETXT,$FFFF,TIMSETTXT
 128 ;
 129 ;---------------------------------
 130 ARTEFLIST   dat 'DEN STEIN VON TOSH' 201
 131             dat 'DIE PERLE VON K' 201
 132             dat 'DIE FL[T' 197
 133             dat 'DEN SPIEGEL DER ERD' 197
 134             dat 'DREI R@DER'
 135             dat 1 'AUS STEI' 206
 136             dat 'DAS AMULET VON H' 201
 137             dat 'DEN RING VON IGAK' 213
 138             dat 'DIE KRISTALLKUGE' 204
 139             dat 'DAS SPRUCHBUC' 200
 140             dat 'EINE INSCHRIF' 212
 141 ;
 142 ;
 143 SPELLIST    dat 'SAIMUJ' 201
 144             dat 'YUKUR' 201
 145             dat 'KAJIBOR' 213
 146             dat 'KAMBA' 206
 147             dat 'NAOS' 213
 148             dat 'TSURANUK' 213
 149             dat 'MUKER' 213
 150             dat 'MOSH' 193
 151             dat 'KYOF' 213
 152             dat 'DEGUCH' 201
 153 ;---------------------------------
 154 ;
 155 ;
 156 MAINMTXT    dat 'WILLKOMMEN IN NIPPO' 206
 157             dat 'ALTES SPIE' 204
 158             dat 'NEUES SPIE' 204
 159             dat 'DIE' 1 'WELT VON NIPPON' 129
 160             dat 'DEN ORT' 1 129
 161 ;
 162 ;---------------------------------
 163 ;
 164 SPELL2TXT   dat 'MAGIE ]BERTRAGEN AU' 198
 165 ;
 166 ;---------------------------------
 167 ;
 168 NTEXTTXT    dat 0 'DAS IST NICHT M[GLICH' 1 129
 169             dat 1 '    KNOPF DR]CKE' 206
 170             dat 0 ' BITTE LEGEN SIE DI' 197
 171             dat 1 1 '  HAUPTDISKETTE EIN' 129
 172             dat 1 1 '  KARTENDISKETTE EIN'  129
 173             dat 1 1 ' STADTDISKETTE 1 EIN' 129
 174             dat 1 1 ' STADTDISKETTE 2 EIN' 129
 175             dat 0 'IHR BETRETET' 160
 176             dat 0 1 'REGION' 186
 177             dat 1 'WAFFE  :' 160
 178             dat 1 'R]STUNG:' 160
 179             dat ' GOLDST]CKE' 129
 180             dat 'INTAK' 212
 181             dat 'ABGENUTZ' 212
 182             dat 'BESCH@DIG' 212
 183             dat 'ZERST[R' 212
 184             dat 1 'ALTER  :' 160
 185             dat 1 'STAND  :' 160
 186             dat 1 'SKLAVEN:' 160
 187             dat ' NIEMANDEM' 129
 188             dat 0 'WOLLT IHR WIRKLICH ?' 129
 189 ;
 190 ;
 191 ;---------------------------------
 192 ;
 193 NMENUTXT    dat '    NICHTS W@HLE' 206
 194             dat ' KNOPF ZUM VERLASSE' 206
 195 ;
 196 ;---------------------------------
 197 I16R2TXT    dat 'NOR' 196
 198             dat 'S]' 196
 199             dat 'OS' 212
 200             dat 'WES' 212
 201             dat 'NICHTS PASSIERT' 129
 202             dat 'EIN TIER ERSCHEINT,'
 203             dat 1 'UND DEUTET IN'
 204             dat 1 'RICHTUNG' 160
 205 ;
 206 ;---------------------------------
 207 ;
 208 ICON1TXT    dat 0 'IHR K@MPFT MIT' 129
 209 ;
 210 ;
 211 ;-------------------------------
 212 ;
 213 ICON2TXT    dat 0 'IHR ERHALTET' 1 129
 214             dat ' ERFAHRUNGSPUNKT' 197
 215 ;
 216 ;---------------------------------
 217 ;
 218 EQPCHKTXT   dat ' GESTORBEN' 129
 219             dat ' ZERRISSEN' 129
 220             dat ' ZERBROCHEN' 129
 221 ;
 222 ;------------------------------
 223 ;
 224 QUESTTXT    dat ' UNTERT@NI' 199
 225             dat ' FROM' 205
 226             dat ' NORMA' 204
 227             dat ' FREUNDLIC' 200
 228             dat ' GOLD BIETEN' 196
 229             dat ' ]BERLEGE' 206
 230             dat ' BEDROHEN' 196
 231 ;
 232 ;---------------------------------
 233 ;
 234 QHEADTXT    dat 'WIE WIRD GESPROCHE' 206
 235 ;
 236 ;---------------------------------
 237 ;
 238 AHEADTXT    dat 'TEXT NOCHMAL SEHE' 206
 239 ;
 240 ;---------------------------------
 241 ;
 242 NOTALKTXT   dat 0 'SAYONARA.' 129
 243             dat 'ES SCHWEIG' 212
 244             dat 'ER SCHWEIG' 212
 245             dat 'SIE SCHWEIG' 212
 246             dat 'SIE SCHWEIGE' 206
 247 ;
 248 ;---------------------------------
 249 ;
 250 ICON4TXT    dat 'WAFFE WECHSEL' 206
 251             dat 'R]STUNG WECHSEL' 206
 252             dat 'WAFFE ABLEGE' 206
 253             dat 'R]STUNG ABLEGE' 206
 254 ;
 255 ;---------------------------------
 256 ;
 257 ICON5TXT    dat 0 'IHR BESITZT JETZT' 129
 258 ;
 259             dat ' FRAGEN ZU ' 191
 260             dat 'GOL' 196
 261             dat 'STATU' 211
 262             dat 'GESUNDHEI' 212
 263             dat 'WERKZEUG' 197
 264 ;
 265 ;---------------------------------
 266 ;
 267 ICON7TXT    dat 'SPIEL SPEICHER' 206
 268             dat 'SPIEL VERLASSE' 206
 269             dat 'PAUS' 197
 270             dat 'SCHATTIERUNG AN/AU' 211
 271             dat 'NEUE POSITIO' 206
 272             dat 'MOMENTANE POSITIO' 206
 273             dat 'KOLLISION AN/AU' 211
 274             dat 'FEINDE AN/AU' 211
 275             dat 'POK' 197
 276 ;
 277 ;---------------------------------
 278 ;
 279 TIMETXT     dat 0 'WIEVIELE STUNDEN' 1
 280             dat 'SOLLEN VERGEHEN ?' 1 1 129
 281 ;
 282 ;---------------------------------
 283 ;
 284 ICON8TXT    dat ' SPRUCH W@HLE' 206
 285             dat 0 'IHR BEHERRSCHT DEN' 129
 286             dat '-SPRUC' 200
 287 ;---------------------------------
 288 ;
 289 ICON9TXT    dat 1 'ENERGIE VERBRAUCHT' 129
 290 ;
 291 ;---------------------------------
 292 ;
 293 ICN15ATXT   dat 0 '    DIE STUNDE' 160
 294             dat '.' 1 '    DER MONAT DER' 1 '     ' 160
 295             dat 'HAT' 160
 296             dat '  TAGE GESEHEN' 1
 297             dat '    IM JAHRE' 160
 298 ;
 299 ;---------------------------------
 300 ;
 301 ICN15BTXT   dat ' RATTE' 206
 302             dat ' OCHSE' 206
 303             dat '  TIGE' 210
 304             dat '  HASE' 206
 305             dat ' DRACHE' 206
 306             dat 'SCHLANGE' 206
 307             dat ' PFERD' 197
 308             dat ' ZIEGE' 206
 309             dat '  AFFE' 206
 310             dat '  H@HN' 197
 311             dat '  HUND' 197
 312             dat ' KEILE' 210
 313 ;
 314 ;---------------------------------
 315 ;
 316 SHOP3TXT    dat 0 'VERZEIHT, HERR,'
 317             dat 1 'ABER IHR BE-'
 318             dat 1 'HERRSCHT BEREITS'
 319             dat 1 'EUE' 210
 320 ;
 321 ;---------------------------------
 322 ;
 323 SHOP14TXT   dat 0 'IHR HABT MEIN R@TSEL'
 324             dat 1 'BEREITS GEL[ST,'
 325             dat 1 'TOSHIRO !' 129
 326             dat 1 'ICH SEGNE EUCH,'
 327             dat 1 'TOSHIRO ! DIE'
 328             dat 1 'RICHTIGE ANTWORT WAR:' 129
 329             dat 0 'FLUCH ]BER EUCH !' 1
 330             dat 1 'DAS WAR FALSCH !!' 129
 331             dat 0 1 'FEIGLING !' 129
 332 ;
 333 ;---------------------------------
 334 ;
 335 PRNAMETXT   dat 'GUTEN TAG ! ICH' 1
 336             dat 'BIN' 160
 337             dat 'NENNT MICH EINFACH' 129
 338             dat 'KONNICHI-WA. ICH' 1
 339             dat 'BIN' 160
 340             dat 'ANGENEHM:' 129
 341 ;
 342 ;---------------------------------
 343 ;
 344 PRTYPTXT    dat 0 'IHR SPRECHT' 1
 345             dat 'MI' 212
 346             dat 160
 347             dat ' EINEM' 160
 348             dat ' EINER' 160
 349 ;
 350 ;------------------------------
 351 ;
 352 ;
 353 SPELL9TXT   dat 0 'IHR VERLA^T' 129
 354 ;
 355 ;---------------------------------
 356 ;
 357 TELFLDTXT   dat 0 'IHR BESITZT KEIN'
 358             dat 1 'PASSENDES TORSYMBOL' 129
 359 ;
 360 ;---------------------------------
 361 ;
 362 ICON6TXT    dat 0 'IHR BETET ...' 129
 363             dat 0 'IHR SEID AM RICHTIGEN'
 364             dat 1 'ORT ZUR FALSCHEN ZEIT' 129
 365             dat 0 'IHR WEIHT DEN BERG -'
 366             dat 1 'IM TIEFSTEN S]DEN BE-'
 367             dat 1 'GINNT EIN SPRO^ DES'
 368             dat 1 'LEBENSBAUMES WIEDER'
 369             dat 1 'ZU KEIMEN..' 174
 370             dat 0 'DIESE ST@TTE IST'
 371             dat 1 'SCHON GEWEIHT.' 129
 372 ;
 373 ;---------------------------------
 374 ;
 375 GAMENDTXT   dat 1 'VERSTORBEN.'
 376             dat 1 'VERSUCHT ES ERNEUT..' 174
 377             dat 1 'AN ALTERSSCHW@CH' 197
 378             dat 'IM KAMP' 198
 379             dat 1 'VOR ENTKR@FTUN' 199
 380             dat 'IM NICHT' 211
 381             dat 'IM LAUFE'
 382             dat 1 'DER ZEI' 212
 383 ;
 384 ;---------------------------------
 385 ;
 386 ICON17TXT   dat 0 'IHR FINDET' 160
 387             dat 'NICHTS' 129
 388             dat 1 'EIN ARTEFAKT' 1 129
 389             dat 'EIN PERGA-' 1 'MENT MIT DEM'
 390             dat 1 'SPRUCH' 160
 391             dat 1 'EINE LANDKARTE'
 392             dat 1 'VON' 160
 393             dat 1 'EINE STATU' 197
 394 ;
 395 ;---------------------------------
 396 ;
 397 ICON14TXT   dat 0 'HIER IST NICHTS' 129
 398             dat 0 'WERT DES SCHATZES:' 1 129
 399 ;
 400 ;---------------------------------
 401 ;
 402 SLEEPTXT    dat 1 'IHR SCHLAFT EI' 206
 403             dat 1 'IHR WACHT AU' 198
 404             dat 1 'ABER EUER HUND WACH' 212
 405 ;
 406 ;---------------------------------
 407 ;
 408 HUNGERTXT   dat 0 'MAMPF ... (GULP) ' 161
 409             dat 'EUER VORRA' 212
 410             dat 'WIEVIEL ' 186
 411             dat 0 'PLATZ F]R' 160
 412             dat ' RATIONEN' 1 129
 413             dat 'ST]CK' 160
 414 ;
 415 ;---------------------------------
 416 ;
 417 STATTXT     dat 1 'IHR SEID' 160
 418             dat 'M]D' 197
 419             dat 'NICHT M]D' 197
 420             dat 'HUNGRI' 199
 421             dat 'SAT' 212
 422             dat 'KRAN' 203
 423             dat 'IN DER' 1 'STADT' 160
 424             dat 'VERFLUCH' 212
 425 ;
 426 ;---------------------------------
 427 ;
 428 GOLDTXT     dat '      GOLDST]CK' 197
 429 ;
 430 ;---------------------------------
 431 ;
 432 ESHIPTXT    dat 'EIN' 1 'SCHIFF' 129
 433             dat 'EUER' 1 'SCHIFF' 129
 434             dat 0 'IHR BETRETET' 160
 435 ;
 436 ;---------------------------------
 437 ;
 438 LSHIPTXT    dat 0 'IHR VERLA^T DAS'
 439             dat 1 'SCHIFF' 129
 440             dat 0 'IHR K[NNT EUER SCHIFF'
 441             dat 1 'HIER NICHT VERLASSEN' 129
 442 ;
 443 ;---------------------------------
 444 ;
 445 SHOPDLTXT   dat 0 'IHR K[NNT NICHTS '
 446             dat 1 'MEHR KAUFEN' 129
 447 ;
 448 ;---------------------------------
 449 ;
 450 FSPELLTXT   dat '  ' 31 '=LESEN/KNOPF=END' 197
 451             dat 0 'DAS PERGAMENT ZER-'
 452             dat 1 'F@LLT ZU ASCHE' 129
 453             dat 'ETWAS,ABER'
 454             dat 1 'IHR K[NNT ES NOCH'
 455             dat 1 'NICHT BENUTZEN' 129
 456 ;
 457 ;---------------------------------
 458 ;
 459 LOHNTXT     dat 'VERPFLEGUNGSGELD F]R'
 460             dat 1 'DIE SKLAVEN' 129
 461             dat 0 'EIN SKLAVE FLIEHT MIT' 1
 462             dat 'EURER WAFFE UND'
 463             dat 1 'EURER R]STUNG.' 129
 464 ;
 465 ;---------------------------------
 466 ;
 467 LEVELTXT    dat 'ET' 193
 468             dat 'AKIND' 207
 469             dat 'ARTISA' 206
 470             dat 'GAKUSH' 207
 471             dat 'RONI' 206
 472             dat 'SAMURA' 201
 473             dat 'GOKENI' 206
 474             dat 'HATAMOT' 207
 475             dat 'DAIMY' 207
 476             dat 'SHOGU' 206
 477 ;
 478 ;---------------------------------
 479 ;
 480 ICN5R2TXT   dat ' UN' 196
 481             dat 1 'IHR K[NNTET ERKRANKE' 206
 482             dat 0 'EUCH GEHT ES GU' 212
 483 ;
 484 ;---------------------------------
 485 ;
 486 ICON19TXT   dat 0 'IHR VERSUCHT EUCH'
 487             dat 1 'ZU VERSTECKEN' 129
 488 ;
 489 ;---------------------------------
 490 ;
 491 ICON16TXT   dat 'W@HLE ARTEFAK' 212
 492             dat 0 'DAS ARTEFAKT IST'
 493             dat 1 'OHNE ENERGIE' 129
 494 ;
 495 ;---------------------------------
 496 ;
 497 ENDTXT      dat 0 '     DER KREIS'
 498             dat 1 '   SCHLIE^T SICH.'
 499             dat 1 ' DIE STATUEN ZIEHEN'
 500             dat 1 'EUCH IN EINE WELT,'
 501             dat 1 'DIE IHR SCHON KENNT' 174
 502 ;
 503             dat 0 ' VOR EUREM GEISTIGEN'
 504             dat 1 ' AUGE ERSCHEINT EINE'
 505             dat 1 'BR]CKE, DIE SICH WIE'
 506             dat 1 ' EIN WEITER BOGEN IN'
 507             dat 1 'DAS NICHTS ERSTRECKT' 174
 508 ;
 509             dat 0 'IHR DURCHQUERT DIE'
 510             dat 1 'H[HLE IM INNERN DES'
 511             dat 1 'SCH@DELS UND ERREICHT'
 512             dat 1 'DAS ANDERE UFER' 174
 513 ;
 514 ;
 515             dat 0 'IHR HABT DEN WILLEN,'
 516             dat 1 'ABER NOCH NICHT DIE'
 517             dat 1 'F@HIGKEITEN' 174
 518 ;
 519 ;---------------------------------
 520 ;
 521 ESTEEDTXT   dat 0 'MIT JOYSTICK DIE'
 522             dat 1 'STARTRICHTUNG W@HLEN' 1
 523             dat 1 'KNOPF DR]CKEN ZUM'
 524             dat 1 'LANDEN UND ABSTEIGE' 206
 525             dat 0 'DAS PFERD IST LAHM' 129
 526             dat 1 'DAS PFERD LANDET' 129
 527 ;
 528 ;---------------------------------
 529 ;
 530 ZAHLTXT     dat 'RE' 201
 531             dat 'CH' 201
 532             dat 'N' 201
 533             dat 'SA' 206
 534             dat 'YONN' 207
 535             dat 'G' 207
 536             dat 'ROK' 213
 537             dat 'SHIC' 200
 538             dat 'HAC' 200
 539             dat 'KY' 213
 540 ;
 541 ;---------------------------------
 542 ;
 543 TELEPTXT    dat 0 'IHR H[RT EINE FL]S-'
 544             dat 1 'TERNDE STIMME SAGEN' 129
 545             dat 0 'DIE KUGEL DREHT SICH'
 546             dat 1 ' WOHIN WOLLT IHR ?' 1 1 129
 547 ;
 548 ;---------------------------------
 549 ;
 550 BUDDHATXT   dat 0 'DIE STATUE ERWACHT'
 551             dat 1 'UND SPRICHT: GIB MIR'
 552             dat 1 'DEIN' 197
 553             dat 1 1 'KNOPF ZUM GEBE' 206
 554             dat '. ABER' 1 'IHR ENTDECKT NICHTS'
 555             dat 1 'AU^ERGEW[HNLICHE' 211
 556             dat 0 'DANKE,GEHT IN FRIEDEN' 129
 557             dat 0 'WOLLT IHR MICH'
 558             dat 1 'BETR]GEN ?' 129
 559 ;
 560 ;---------------------------------
 561 ;
 562 SHOP0TXT    dat 0 'SOVIEL K[NNT IHR'
 563             dat 1 'ALLEIN NICHT TRAGEN' 129
 564             dat 0 'IHR TRAGT BEREITS'
 565             dat 1 'EIN SOLCHES TEIL.' 129
 566 ;
 567 ;---------------------------------
 568 ;
 569 PAUSETXT    dat 0 '        PAUSE' 1 129
 570 ;
 571 ;---------------------------------
 572 ;
 573 SHPDAMTXT   dat 1 'DAS SCHIFF IST' 129
 574             dat 1 'IHR HABT KEIN SCHIFF' 129
 575 ;
 576 ;---------------------------------
 577 ;
 578 PTIMETXT    dat 0 'BISHERIGE SPIELZEIT :' 1 129
 579             dat ' TAG(E),' 129
 580             dat ' STUNDE(N) UND' 129
 581             dat ' MINUTE(N)' 174
 582 ;
 583 ;---------------------------------
 584 ;
 585 TIMSETTXT   dat 'TAG  ' 186
 586             dat 'MONAT' 186
 587             dat 'JAHR ' 186
 588             dat 0 '      SO SEI ES' 1 129

